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RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
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RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 
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RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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ZTITLE ‘CNTVMS - CONTENTS | VMS command Line Interface’ 
MODULE cntvms 443) 4- 


SSING MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE) 
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BEGIN 


' 
Vee RRA RARER AERA EERE EEA 


t® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
:® ALL RIGHTS RESERVED. 


ie THIS i IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sor tre 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tit AND WITH THE 


CoCcooo 


. 0 

!* TRANSFERRED. 

is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
> Cappoket ibn NOT BE CONSTRUED AS 4 COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


® 
® 
* 
® 
® 
* 
& 
* 
* 
0 ILABLE “ 
PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY + 
*® 
® 
a 
* 
® 
® 
® 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 

- 

® 

* 


VRE ARREARS 
' 


| 
'e+ 
! FACILITY 

i DSR (Digital Standard RUNOFF) /DSRPLUS DSRTOC/CONTENTS Utility 


' 
i ABSTRACT 

: This aatdlie contains the command Line interface for CONTENTS. 
1 


i ENVIRONMENT: VAX/VMS User Mode 
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AUTHOR: 


5. 
SsSepct9es 4:58:21 YAMGdY 8Lisecde ye 


JPK 


CREATION DATE: April 1982 


MODIFIED BY: 


013 


012 


011 


010 


009 


008 


007 


006 


005 


REM00013 Ray Marshail 13-Feb-1984 
Enabled /REQUIRE for DSRTOC. 


KFA0Q0012 29-Aug-1983 
Modified tms ==> TMS1 if. 
JPK00012 27-May-1983 


Modified source nodules to include REQ: in REQUIRE statements. 


JPK00008 09-Mar Hs 

Modified FONTENTS and ¢ N to aupport new BRN formats, 
support SEND CONTENTS, “DOUBLES SPACE, page numbered chapters, 
Quarantee space after section fuaber and to write new 

preie ue and e epi log for RUNOFF o 

odified FORMA 

Modified CNTVMS to fix defau 
value checking. 


JPK00007 14-Feb-1983 
Global edit of all sources for CONTENTS/DSRTOC: 
module names are now consistant with file names 
copyright dates have been updated 
y names have been updated 
revision history was updated to be consistant with DSR/DSRPLUS 


JPK00006 14-Feb-1983 

Modified CNTVMS, CONTENTS, FORMAT and —— to pnerate 
error messages for DSRTOC or CONTENTS d epending on the 
compiletime variant for DSRPLUS (/VARIANT:8192 


JPK00004 11-Feb-1983 

Changed the global variable name INDENT to LINE_INDENT in 
modules CONTENTS, CAPTION get and GBLDCL. 

aoneves Soclaraxions of * PGE ENTS in modules CNTVMS, CONTENTS, 
and CAPTION and replaced with a module wide BIND using the 
new mame INDEN 

Changed handlin “of INDENTS [1]. It no longer represents the 
sum of the chapter and title indents. 


PK00003 11-Feb-1983 
Added condition handler to CNTVMS to set program exit status. 


JPK00002 10-Fe sb 
Merged i chen e KFAO o0s” & modules CNTVMS, CNTCLIDMP and 
CN <n LI,REQ. ,coenge yes i, pitheut reserving. and 


n the volved 
Ra Re CONTENT S8c ih IMOENT Lee iste fh HLT sINDENY through 
CONTENTS L6_INDEN NT and CONTENTS$G_HLN_IRDENT wi 


CONTENT sy othe was removed - it was no longer needed. 


for /DOUBLE_SPACE and do more 


uote only the @ RUNOFF £ 3B used by CONTENTS. ° 


0-74 : 
B3oe4 age 58 
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CNTVM CNTVMS = CONTENTS VMS command Line Interface 1Sese -1984 :58: AX-11 Bliss-32 V4.0-74 
704 080 127808-1382 $308 :25 RUNOFF SRCICNTVMS B32: (2) 


Changed /TMS to /FORMAT={DSR | TMS). 
Added code for /DOUBLE_SPACE. 


004 REROQOOO2 20-Jan-1983 
Modified CNTVMS and CNTCLI.REQ to add new fields for new and 
expended ualifiers: 
CONTENTSSV_TEX = for tex output 
CONTENTS$G_DOUBLE SPACE = for /OOUBLE_SPACE 
CONTENTS$G_HL2_INDENT through CONTENTS$SG_HL6_INDENT for /INDENT. 


003 REROOOO1 17-Dec-1982 
Added code to CNTVMS to treat keyword NORUNNING in same way as 
keyword STANDARD. 
Changed header level default value from 99 to 6. 
Deleted foreign-command code; CONTENTS is now called 
as a subcommand of DSR. 
Conditionalized code to compile for DSRPLUS if BLISS 
/VARIANT = 8192 is used; otherwise, to compile for DSR. 


KFA00002 14-0ct-1982 

Modified CNTVMS, CONTENTS, CAPTION and CNTCLI.REQ to handle 

new syntax for /INDENT qualifier. ALL indents are now 

stored in the vector CMDBLK CCONTENTSSAG_HL_INDENT (JJ, 

where 0 = chapter indent, 1 = header level one indent, etc. 
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CNTVMS = CONTENTS VMS command Line Interface 15-5ep-1984 $9: 38:21 ot Bliss-32 V4.0-74 Page 4) 
14-Sep-1984 15:05: RUNOFF ..SRCJCNTVMS.B32; (3) 
; 125 lg, 3} : 
o % § 1246 1! INCLUDE FILES: ‘ 
% 125 1! : 
; 128 1 § 1 : 
; : 2 : : LIBRARY "SYSSLIBRARY:STARLET’; ‘ 
; : 1 : ° : LIBRARY ‘SYSSLIBRARY:TPAMAC'; : TPARSE macros : 
; 1 5 131] LIBRARY *SYSSLIBRARY:XPORT'; : 
; 135 § | SWITCHES LIST (REQUIRE): : 
; 1 ; oI 5 1 REQUIRE 'REQ:CNTCLI'; ! Command Line information block definition ; 
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1 
Version: *v04-000' 
Se RR TREE E AREER ARATE TATE KTH AERERERRRAE REE eEe | 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
Hed — IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


: D 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP. OF THE SOFTWARE IS HEREBY 
!t TRANSFERRED. 


it THE INFORMATION IN THIS SOFTWARE IS SUBJE 
i# AND SHOULD NOT BE CONSTRUED AS A COMM 
ie CORPORATION. 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


gett TO CHANGE WITHOUT NOT 


ICE 
MENT BY DIGITAL EQUIPMENT 


@aeneeneenenenenenee eee eneeneennane 


iqeeeeeerereneeeeeeeerenentreneneetennetrteeeecrrerereeertttennereenneeienens 
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ee 
i FACILiT 
DSR statin Standard RUNOFF) /DSRPLUS DSRTOC/CONTENTS Utility 


i ABSTRAC 
CONTENTS Command Line Data Structure Definitions 


ENVIRONMENT: Transportable 


AUTHOR : JPK 
CREATION DATE: April 1982 
MODIFIED BY: 
005 JPK00007 14-Feb-1983 


Global edit of all sources for CONTENTS/DSRTOC: 

- module names are now consistant with file names 

- copyright dates have been updated 

- facility names have been updated 

- revision history was updated to be consistant with DSR/DSRPLUS 


004 oes | 10-F eb-1983 
Merged in asthe KFAGGOO2 to modules CNTVMS, CNTCLIDMP and 
CNT ci. REQ : ,Saange ry gone Esceeut reserving and 
Seatheton the f e CAS L ory. .t This work involved 
CONTENTS CONTENTSSG. tn INDENT LT ONTE isse ALi iment through 
TENTSSG elit L6_INDENT and CONTENTS$SG_HLN_IRDENT wit 


T 
CONTENTS3V- otk was removed - it was no longer needed. 
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| TMS}. 


CRUNOFF .SRCJCNTCLI.REQ;1 


Changed /TMS to /FORMAT={DSR 
Added code for /DOUBLE_SPACE. 


REROOOO2 20-Jan-1983 

Modified CNTVMS and CNTCLI.REQ to add new fields for new and 
expences gue, i ' sores 

CONTENTSSV_TEX = for tex output 

CONTENTS$G_DOUBLE_SPACE = for /DOUBLE_SPACE 
CONTENTS$SG_HL2_INDENT through CONTENTS$G_HL6_INDENT for /INDENT. 


KFA00002 14-0c t-1982 

Modified CNTVMS, CONTENTS, contin and CNTCLI.REQ to handle 
new syntax for /INDENT qualifier. ALl indents are now 
stored in the vector CMDBLK CCONTENTSSAG_HL_INDENT (JJ, 
where 0 = chapter indent, 1 = header level One indent, etc. 


003 


002 


Contents command fields: 
$field contents_cmd_fields = 
SET 


contents$v_options 


= ($short_integer], Command option indicators: 


$Soverlay (contents$v_options) 


contents$v_output = ($bit], ! Generate output file 
contents$v_tms11 = ($bit], ! Generate TMS11 output 
contents$v_require = ($bit], ! Require file specified 
contents$v_standard_page = ($bitl, 1 Use section type page numbers 
contents$v_include_Sections = ($bit), ! Include section numbers in entry 
contents$v_log = ($bitl, ! Generate /LOG message 
$cont inue 

contents$h_leader = ($short_integer], ! Align to next fullword 


Soverlay (contents$h_leader) 


contents$c_leader_char = ($string(1)], Leader dot character 


$cont inue 
contents$g_headers Sinteger], Deepest header level to include 
contents$g_page_level Sinteger), Deepest level to include page references 
contents$g_under line Sinteger), Deepest level to include underlining 
contents$g_bold Sinteger], Deepest level to include bolding 
contents$g_sections SintegerJ, Deepest level to include section numbers 


contents$g_page_width 
contents$g_doubTe_space 
contents$ag_hl_indent 
contents$t_input_file 
contents$t_output_file 
contents$t_require_file 
contents$t_command_line 


Page width (for RUNOFF only) 
Double space value 

Left margin and HL 1-6 indents 
: Input Tile name descriptor 
Sdescriptor(dynamic)], ! Output file name descriptor 
$descriptor(dynamic)], ! Require file name descriptor 
$descriptor (dynamic) ' Copy of entire command Line 
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CNTVM CNTVMS = CONTENTS VMS command Line Interface bese Sep-1 VAX=-11 Bliss-32 V4.0-74 Page 7 CN 
V04- oop7198d 33:80:47 — “S3SSsnGAsesCRGNOFE SRCSCNTCLI.REO:1 °® a vo 
; RO250 1 

; RO251 1 TES; 

° RO 1 | 

; = : ! End of contents_cmd_fields 

; ROe5S 1 LITERAL | 

3 ne $ : contents_cmd$k_length = $field_set_size; 

; RO258 1 MACRO 

; 4 24 } $contents_cmd = BLOCK Ccontents_cmd$k_length] FIELD (contents_cmd_fields) %; 

3 Roget 1 | 

3 RO2C62 1 {=< End of CNTCLI.REQ | 


$< 
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¥04-000 ance h 88 FEBeeE | AMAA Obhegcée Ne-B534 ~ 


3 138 8363 1 
s 139 64 1 REQUIRE "REQ:CNTVMSREQ'; ! VMS error messages 


CNTVMS CNTVMS = CONTENTS VMS command Line Interface 1 3 -1984 AX=-11 Bliss-32 V4.0 P 9 
v04-000 15 Sep-1984 $3: 35 rH RUNOFF .SRC CNTVMSREO. R 231 oe (1) | 


>; RO265 1 : ‘ 
; ne 98 : : version: *v04-000' : 
: RO ve 1 i eeeeeeeeeeeeeeeeeeeeeeKeeeeeeeeeeeeeeeeeeeeeeeeeererererereeeeeeeeereereeeee | : 
+ ROC69 1 he | ‘ 
; RO270 1 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . | : 
; RO271 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ‘ 
; ~ if : 1* ALL RIGHTS RESERVED. * | : 
3 ‘* 7 | . 
> RO274 1 :* THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
; RO275 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ° 
; RO 76 1 '® INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ° 
; RO27? 1 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* ‘ 
; RO278 1 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | ° 
; its : 1* TRANSFERRED. * . 
: Hie * ° 
; RO a 1 :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ° 
; RO ¢ 1 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | : 
; + Hi : :* CORPORATION. * : 
g it ® | ° 
; RO28S 1 ‘® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
; RO286 1 !t SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
; RO287? 1 '® * : 
; RO288 1 he * ‘ 
: RO289 1 Lee RRR EAA AAAS : 
; RO290 1 : : 
: RO291 1 ; 
; RO292 1 e+ ; 
; RO295 1 i FACILITY ; 
; Hit : ! DSR (Digital Standard RUNOFF) /DSRPLUS DSRTOC/CONTENTS Utility : 
; RO2% 1 ! ABSTRACT: : 
; RO297 1 : This file contains external references to the error message numbers ; 
; Hi 94 : lor DSRTOC/CONTENTS. ‘ 
; ROS 1 : New messages must be defined in CNTVMSMSG.MSG and referenced here: | : 
; RO301 1 : both in the MACRO section (for DSRTOC) and the EXTERNAL LITERAL : 
: its ; } section (for CONTENTS) : 
; RO304 1 ! ENVIRONMENT: VAX/VMS User Mode ‘ 
; RO305 1 ; : 
; RO306 1 i AUTHOR: JPK | : 
; RO307 1 ! : 
; kO308 1 ! CREATION DATE: February 1983 : 
: RO309 1 : : 
: 3 : ; MODIFIED BY: : 
; RO3S12 1 ; 002 PKQ0009 24-Mar-1983 : 
¢ RO313 1 : : 
: RO 1 ; : 
: RO 1 : : 
; RO 1 : : 
3 1 : ‘ 
; 1 ; ‘ 
; 1 : 
; 1 ‘ 
; 1 ‘ 


ooooo 


REQUIRE ‘REQ:RNODEF'; 
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i] 
Version: *v04-000' 


RAPS SSSSISIS ETT TT TTT TTT TTT Tec cect cece eee c ieee cic c ricci icici iii iii iii ii iiicy 
' 


ok 

iw COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. » 
it ALL RIGHTS RESERVED. . 
* 

it THIS SOFTWARE IS FURNI SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
it ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
it INCLUSTON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: ® 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. “ 
* 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
if AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIOMENT * 
ie CORPORATION. * 
* 

i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
z 

® 

* 


Lee ERRATA 
' 


e+ 


FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


i ABSTRACT: | 
Converts BLISS/VARIANT values into useful names. 


i ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 
CREATION DATE: 1978 

MODIFIED BY: 


016 KAD00016 Marshall 19-Mar-1984 
Added GERMAN, FREN H, & ITALIAN. 
015 KADO00015 Keith Dawson 18-Apr-1983 


Made the LNO1 conditional the default for vanilla DSR -- 
its value is 0 (no variant supplied). 


014 KAD00014 Keith Dawson 22-Mar-1983 

Asserted the LNO1 conditional when DSRPLUS is asserted. 
013 KAD00013 Keith Dawson 20-Mar-1983 

Removed all references to .BIX and "BIC files. 
012 KAD00012 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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4 2:54:08 $255$DUA28: CRUNOFF ..SRCIJRNODEF .REQ;1 (1 
$ é H 


; RO379 1 ' $ 
; kRO380 1 l<= $ 
; RO381 1 | : 
: RO ¢ 1 '+4 ; 
; Mer | DEFINITION OF /VARIANT BITS | : 
; RO 5? 1 ‘ The bit assignments are as follows: | : 
; RO § 1 ! $ 
; si i } Bit Weight Meaning | : 
; RO389 1 ! -- 0 If no /VARIANT is supplied (as for vanilla DSR), : 
; RO390 1 ' comp Le with LNO1 support. LNO1 support is also ; 
3 4 4! : implied by the DSRPLUS variant. ; 
Py 7 | o 
; kRO393 1 : 0 1 CLEAR = Unassigned ; 
; RO394 1 ' SET = Unassigned : 
; kO395 1 : ; 
> RO396 1 ; 1 2 CLEAR = Normal compile : 
3 ited : SET = Compile for DSRPLUS | : 
; RO399 1 : 4-6 16 CLEAR = English (American) version : 
; kO4OO 1 ' SET = 16 = German (Austrian) : 
; RO4O1 1 : 32 = French : 
: kRO4O2 1 ! 48 = Italian 3 
; ROGOS 1 ad : 
3; ROGOS 1 3 
5 ROGOS 1 ' sc Fig hag RPI RE ee eget Pi gee elegans: “inkepey eer ese were eee wei me ee e@ e@ we oe e 
; RO4O6 1 : This variable (LNO1) controls whether or not to compile an LNO1-flavored ; 
3 sing tH : SR. It is asserted by default, and also whenever DSRPLUS is asserted. : 
; ROGO9 1 ! Modules utilizing LNO1 are: ; 
; RO410 1 : : 
3 ROG11 1 : DOOPTS NOUT : 
: eels 1 : 
; ROG1I3 1 COMPILETIME 3 
; ROGI4 1 = | : 
; ROG1IS 2 ( (XVARIANT EQL 0) OR XVARIANT/2 ) ; 
> ROGI6 1 : | : 
3 ROGI7 1 Ps 
° R041 8 1 ' ea His pe age sage wr cate ne ata arnt agen maaan = a SSS SS SS SS SS SSS e222 eee eeoeneneaee | Pt 
3 singh : } This variable (DSRPLUS) controls compilation for the DSRPLUS program. | : 
; Ross) 1 $ALL modules utilize DSRPLUS. | : 
: Rod i | COMPILETIME : 
3; ROG24 1 dsrplus = 3 
; ROG25 2 ( ZVARIANT/2 ) 3 
3; ROG § 1 3 F 
3 ©ROG 1 ; 
z ROG 8 1 | ewmeeoooe Sesecwee see en eee aen ect eencece aes sero ee mn ee sees escene ence eso means e ene e eee ee e 
3; ROG29 1 ! This variable (FLIP) controls compilation of FLIP features of DSRPLUS. : 
5 9 : : It assures that FLIP features are compiled only on VMS systems. : 
3 9 § ' ! Modules utilizing FLIP are many and various. : 
; ng 1 COMPILETIM : 
; ROG3S 1 flip = 3 
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( ZVARIANT/2 AND %BLISS(BLISS32) ) 


conpi Let ine = ( NOT ZVARIANT/16 AND 2VARIANT/32 AND NOT ZVARIANT/64 ) ; 
Italian = ( ZVARIANT/16 AND BVARIANT/32 AND NOT BVARIANT/64 ) : 


| 
; 2 
; ROG37 1 3 
; ROG3B 1 | 
P4 ROG 9 1 ' scan ewan torreon = Sew reeere were = Serres ereerene eer ecertr wwe neers rer 2 2 ee teen eno rn eeazanew a = == 
; RO44O 1 : 4-6 16 ie . Foal tan (American) version 
> ROG41 1 ; = German (Austrian) 
; ROG42 1 : 3 = French 
> ROGSS 1 ; = Italian 
> ROGS4 1 COMPILETIME 
> ROG4S 1 German = ( %VARIANT/16 AND NOT ZVARIANT/32 AND NOT ZVARIANT/64 ) ; 
> R044 : mad tty 
: 1 
: 1 
; 1 
3 1 


i End of RNODEF.REQ 


el me ee em ek ee ed ed dd od od od od = = 3 8 wd 8) 2 I 
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%1F NOT DSRPLUS 
THEN 


R 
CONTENTS$_BADVALUE 
N NIN 


CONTENTS$_IDENT 


okies LITERAL 


TENTS$_BADVALUE, 
CONTENTSS_OPENIN 
CONTENTS$_OPENOUT, 


CONTENTSS$_ IDENT; 


AA St SH tS SS HHH 


AOAAOOOOOOOAOAOOAAOOOAAO 


AX-11 Bliss-32 v4.0 
-Sep-19 


-BADVALUE 2, 
-OPENIN i, 
OPENOUT 2, 
VALERR i, 
CAPTIONS 2%, 
CLOSEQUOT %, 
CONFQUAL i, 
CTRLCHAR 2%, 
EMPTYIN 2%, 
IGNORED i, 
INVINPUT %, 
INVRECORD 2, 
OVERSTRK 2%, 
COMPLETE %, 
CREATED i, 
IGNORENEW 2, 
IGNOREOLD 2%, 
PROCFILE i, 
TEXTD z, 
~1MS11 i, 
~IDENT z; 


<"!AS* is an invalid keyword value> 
<error opening ‘!AS' for input> 
<error opening ‘!AS' for output> 
<spec tied va ue, jis out of s*98h range> 
<both "'.HEADER x"’ and ‘’.SEND TOC n‘* captions encountered> 
<the fol lowing line is missing a close quute> 
Seont teeing aap) te tore> 
<the follow ng. t ine contains control characters - ignored> 
Senety | input file *!AS'> 

$ nored> 
Stawsl td tagut file format in, file. "tAS'> 
<invalid record type in file ‘!AS'> 
<the following Line contains an overstrike sequence> 
TAS eres sanwlote *'AS'> 

creat 


e 
CHEADER' ghtations will be ignored> 
<"". SEND TOC n apt ions will be ignored> 

Serecesstng file > 


<output file full - gent tautag with file "!AS*> 
<CONTENTS version !AD> 


RUNOFF .SRC CNT VMSREQ. " 2;1 
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7 

v04=0 -Sep-1 RUNOFF ..SRCICNTVMS.B3 | 

; 140 9504 1 | ; 
; (141 8 5 1 SWITCHES LIST (NOREQUIRE); ; 
; 146 $ 1 : 
; 14 05 1! : 
> 144 0508 1 ! TABLE OF CONTENTS: 3 
> 145 0509 1! : 
: 148 pai? 1 : 
; (14 51% 1 FORWARD ROUTINE | . 
; «148 b216 1 cntcli, ! Command Line interface routine : 
3; 149 0513 1 call_tparse, ! Procedure to invoke TPARSE | : 
3 130 0514 1 enter_page, ! Action routine = enter page number display type : 
; 151 Bel? 1 condition_handler, ! Condition handler = sets termination status : 
: 136 0516 1 open_error; ! File open error handler . 
; 19 0517 1 : 
> 154 L 0518 1 XIF DSRPLUS : 
3 Tee U 0519 1 XTHEN : 
; 156 U bese 1 : 
3 Yor U 0521 1 FORWARD ROUTINE ; 
; 138 U 0356 1 enter_format, ! Action routine = enter output format type ; 
; iW U 0523 1 enter_sect, ! Action routine = enter section number display Level : 
; 160 U 0524 1 enter _dot ! Action routine = enter leader dot character : 
3 1 U 0525 1 enter _hl_indent; ! Action routine - enter HL indent value : 
; 196 U 0526 1 : 
; 0527 1 XFI : 
> 164 0528 1 : 
; 165 b242 1! : 
; 166 0530 1 ! EQUATED SYMBOLS: . 
; 167 0531 1! : 
; 168 O2e6 1 ‘ 
; 169 0533 1 LITERAL : 
: 170 0534 1 true = 1, ‘ 
» Wa 0535 1 false = 0; : 
; ge 0536 1 : 
: HE 0537 1! : 
: 174 0538 1 ! OWN STORAGE: : 
: 175 0539 1! | : 
3 76 0540 1 : 
s VW 0541 10 : 
3; 178 O346 1 qualifier_value, . ‘ 
; 1799 05435 1 tmp_str : $str_descriptor (class = dynamic, string = (0, 0)), ‘ 
; 180 0544 1 termination_status : INITIAL (sts$k_success); : 
; «(181 0545 1 ’ 
3 6182 0546 1! : 
; 183 B36? 1 ! EXTERNAL REFERENCES: : 
3; «184 548 1! | : 
; «6185 0549 1 . ° 
; 186 0550 1 EXTERNAL LITERAL ! Status codes returned by cli$present () : 
> 187 0551 1 cli$_concat, | : 
3; 188 $236 1 cli$_present, ° 
3; «6189 p22 1 cli$_defaulted, . 
; 190 554 1 cli$_negated, : 
: «191 0555 1 cli$_absent; | : 
; 136 B228 1 : 
; 9 0557 1 EXTERNAL ‘ 
3 194 0558 1 cmdblk : $contents_cmd, ! Command Line information block | : 
3 19 Be2R 1 cntvrl, : pongte of version number string 3 
3; 4196 560 1 cntvrp; ! CHSPTR to version number string 3 
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totatattatatatatatstatates 


ed ed ed ed ed = OOOO 
NOUE UNO OONOULS WN OS 


cr 
SS 


a i a a ed td 8 8 2d dd dd wd 8 
@ 


IND 
indents = cmdblk Ccontents$ag_hl_indent] 
sata ROUTINE 
cli$p 


resent : ADDRESSING_MODE (GENERAL) 
cli$get_value : ADDRESSING _MODE (GENERAL) 
Sg parse : ADDRESSING_MODE (GENERAL) 
tocfin; 


i TPARSE state tables 


Tables to parse a decimal number 
Sinit_state (numb_state, numb_key); 


$state 
(tpa$_decimal, P * 
(tpa$_eos, tpa$_exit) 


Sstate ( 
(tpa$_eos, 


tpa$_exit) 


; Tables to parse /PAGE_NUMBERS values 


Sinit_state (page_state, page_key); 
$state (, 
(*RUNNING', 
("NORUNNING', 


Z1F DSRPLUS 
THEN 
("STANDARD', 


page_end, 


enter_page, 
page_end, 


enter_page, 


page_end, enter_page, 


( 
) 
$stat 
( 
( 
) 


$state ( 


(tpa$_decimal, page_end, , 


$state (page_end, 
(tpas_eos, tpa$_exit) 


ZIF DSRPLUS 
ZTHEN 


: VECTOR; 


AX=-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJCNTVMS.B32; 


Qualifier present? 
Get pyrsneses value 


Entry point 
Cleanup routine 


qualifier_value), 


false), 
true), 


true), 


qualifier_value) 


Sete ee ee Se ee ee Se Se ee ae 


oad Oh hese ae Me el od 
RUNOFF .SRCICNTVMS.832; 
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RUNOFF .SRC B32; 
3 11 U 0675 1 (tpa$_eos, tpa$_exit) 
i ig U or ee | seme. ani 
a U 0677 1 
s 3516 U ote 1! 
3 1? ¥ a4 } Tables to parse /LEADER_DOTS values 
mee ih U 0681 1 $init State (dot_state, dot_key); 
; 318 U 06 § 1 $state ( 
; 319 U 06 1 “Ctpa$. any, enter_dot), 
3 0 U 0684 1 (tpa$_eos, tpa$_exit) 
3 1 U 0685 1 ); 
3 § U one 1 $state ( 
3 U 06 1 (tpa$_ eos, tpa$_exit) 
3 6 U 0688 1 ); 
3 5 U 0689 1 
3 6 0690 1 &FI 


MS command Line Interface 18.52 -1984 23:58: AX-11 Bliss-32 V4.0-74 P 

MS Command Line interface 14- at 7 $3:58:24 RUNOFF .SRC CATVNS: 93349 _ (a 
NTC 

UTI 


Se _ 
| 
i 
| 


; 8 1 LI - CONTENTS VMS Command Line interface’ 

3 9 1 NE cntcli 

ei } 

3 ¢ 904 } : FUNCTIONAL DESCRIPTION: 

: 4 0697 1! This routine uses the VMS DCL CLE to te pA command 

; 5 0698 1! Line information that is, in turn, passed to the 

$ +344 ' } Table of Contents application in a Fromnpartekie fashion. 
° $8 0701 1 ! FORMAL PARAMETERS: | 
$ 9 4 7% 
: 340 ? 7% None 
: «341 0704 1! 
3 | 0705 1 ! IMPLICIT INPUTS: 
; 0706 1! ‘ | 
: 3446 0707 1! The VMS command Line 
$ 5 0708 1! 
; 346 0709 1 ! IMPLICIT OUTPUTS: | 
; 347 0710 1! 

: ts tae ! cmdblk = The command Line information block is initialized 
: 39 $318 1 ! ROUTINE VALUE: 
: 331 Q714 1 } COMPLETION CODES: | 
3 358 oS : termination_status - Set by CONDITION_HANDLER () | 
: 355 0718 1 ! SIDE EFFECTS: 
s 36 0719 1! 
s Sor 0720 1! None 

; $26 0721 1! | 
; 359 Ors 1 !<- | 
; 360 0723 1 

; 36l 0724 : BEGIN 
; 0725 
; 2 0726 2 ENABLE 
: 364 0727 2 condition_handler; 
3 303 0728 

3 O76? LOCAL 

3 ot 4 ? status; | 
3 365 Ore 2 $stridesc_init (descriptor = cmdblk ECcontents$t_input_fileJ, class = dynamic); | 
3; 370 073 $str_desc_init (descriptor = cmdblk ECcontents$t_output_file], class = dynamics; 
: 71 Or ee $str_desc_init (descriptor = cmdblk ECcontents$t_require_fileJ, class = dynamic); 
3 y bree $str_desc_init (descriptor = cmdblk Ccontents$t_command_linej, class = dynamic); 
3; 374 0739 ’ : 
3 44 Get a copy of the whole command Line. 
3 a4 O740 cli$get_value (ZASCID'SLINE', cmdblk Ccontents$t_command_Line)); 

; 379 ee ! 

: 80 74 i /FORMAT = { DSR } TMS11 } 

; «4381 744 ! 
; 38 0745 i *WARNING®* 
: 38 B76 : eo 

; «6584 074 ‘ This qualifier must be processed before any other qualifier. 
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v04- CNTCLI = CONTENTS VMS Command Line interface 14-Sep-1984 15:05:4 RUNOFF ..SRCICNTVMS.B32; (4) | 
: +H rs ; Other qualifiers depend on the value of this qualifier. | 
; 87 750 : *WARNING® 
> 388 751 : 
; e OF § cmdblk Ccontents$v_tms11] = false; | 
: 391 L 0754 5 xIF DSRPLUS | 
; U of 5 ZTHEN 
; 39 U 0756 
: 394 U 0757 IF cli$present (ZASCID'FORMAT') 
; 3 U 0753 THEN 
: 396 U 0759 BEGIN | 
3 44 B7e0 cli$get_value (ZASCID'FORMAT', tmp_str); | 
: 399 U p76 IF NOT call_tparse (tmp_str, format_state, format_key, false) | 
; 400 U 076 TH 
: 401 U 0764 SIGNAL_STOP (cortents$_badvalue, 1, tmp_str); 
: 40 U 0765 
; 40 U 0766 END; 
; 404 U 0767 | 
; 405 0768 2 %FI 
; 406 0769 2 
: 407 0770 5! | 
; 408 0771 2 i /LINE_WIDTH =n 
; 409 Brre $ : 
; 410 077 : *WARNING®* 
; 6411 0774 2 : 
3 se 0775 2 { This yak Stier must be processed after /FORMAT before any other 
> «41 0776 2 : — ier. It depends on the value of /FORMAT and other qualifiers 
; 414 0777 2 : epend on the value of this qualifier. 
; 415 0778 2 : 
: 416 0779 2 ! *WARNING®* 
: 417 0780 2 : 
: 418 0781 2 qualifier_value = 70; 
; 419 ores 2 
; 420 t 0783 2 ZIF DSRPLUS 
: 421 U 0784 2 XTHEN 
3 $56 U 0785 
; 42 U 0786 IF .cmdblk Ccontents$v_tms11] 
: 426 U 0787 THEN 
: 425 U 0788 BEGIN 
: 426 U 0789 : 
: 427 U 0790 ! Generating TMS11 output. 
: 428 U 349) : 
3 : , 4 4d 4 yo liSpresent (ZASCID'LINE_WIDTH') 
3 $e! Y Be SIGNAL (contents$_ignored, 1, ZASCID'LINE_WIDTH', contents$_confqual); | 
3 £33 U p78 gual itter_velue = -1; 
3; 434 U 079 ND 
: 435 U 0798 ELSE 
Pind U 0799 BEGIN | 
3; 43 U 0800 ; 
: 438 U 0801 IF cli$present (ZASCID'LINE_WIDTH") | 
: 439 U pes THEN _ 
; 440 U 080 BEGIN 
3; (441 U 0804 cli$get_value (ZASCID'LINE_WIDTH', tmp_str); 


a i i oe —_ - - — 
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CNTCLI = CONTENTS VMS Command Line interface 14-Sep-1984 13:05:4 RUNOFF ..SRCJCNTVMS.B32; 1 (4) | 
> 44 U 0805 | 
: uaz 0 86 i call_tparse (tmp_str, numb_state, numb_key, false) | 
; 445 u 808 SIGNAL_STOP (contents$_badvalue, 1, tmp_str); 
; ret . O8i0 if 4 quali fier value LSS 20) OR (.qualifier_value GTR 120) | 
; rc Bai§ SIGNAL_STOP (contents$_badvalue, 1, tmp_str, contents$_valerr); 
: 451 U 0814 END; | 
3 $26 U p32 | 
; 45 U 8 1 END; 
> 454 U 081 
; 455 0818 <FI | 
: 456 0819 : We 
: rit 4 ba59 cmdblk Ccontents$g_page_width] = .qualifier_value; | 
; 459 0822 | 
; 460 0825 | /DEEPEST_HEADER = n 
; 462 0825 ) *WARNING®* | 
+ 464 0827 i This qualifier must be processed before /INDENT. 
3 ret 0899 } The value of indent depends on the value of this qualifier. 
; 467 0830 *WARNING®* | 
Py : | 
3 +83 OBS 3 qualifier_value = 6; | 
: 471 0834 2 IF ct ispresent (ZASCID'DEEPEST_HEADER' ) 
: 47 OB3e 8 BEGIN | 
: rth st e4 3 cli$get_value (ZASCID*DEEPEST_HEADER’, tmp_str); 
: ote +44 ; e NOT call_tparse (tmp_str, numb_state, numb_key, false) | 
: 478 0841 3 SIGNAL_STOP (contents$_badvalue, 1, tmp_str); 
: 480 Oss LF -qualifier_value GTR 6 
: rt} Oaee SIGNAL_STOP (contents$_badvalue, 1, tmp_str, contents$_valerr); 
: 484 0847 END; 
: 485 0848 
; rey, 0850 cmdblk Ccontents$g_headers] = .qualifier_value; 
: 488 851 
3; 489 85 ' /INDENT = (CCHAPTER = nj, CTITLES =_mJ], [PROGRESSIVE = p) 
: rs 0838 CHL1 = mj, CHL2 = qj, CHL3 = B CHL4 = sJ, chi = tj, CHL6 = ul) 
: 49 0895 *WARNING® | 
: 494 OBS? i This qualifier must be processed after /FORMAT, /LINE_WIDTH and 
: rh pB38 /DEEPEST_HEADER. It depends on their values. 
F 497 0860 *WARNING®* | 


3 | 

CNTVMS = CONTENTS VMS command Line Interface 18-se -1984 23:58:2 AX-11 Bliss-32 V4.0-742 e 21) 
v04-000 CNTCLI = CONTENTS VMS Command Line interface 12-8 08-1 oh #3:38:23 RUNOFF ..SRCJCNTVMS.832;1 os (4). 
; 499 B66 indents [0] = 8; 
; 500 6 indents [1] = 8; 
; 4! peee indents [2] = 2; 
: 50 L 0866 %1F DSRPLUS | 
: ape gee ZTHEN 
: 506 U O89 indents (3) = 2; 
; 30 U 0870 indents [4] = 2; 
; 508 U 0871 indents (5] = 2; 
; 509 U pers indents (6) = 2; 
s 310 U 087 
: 213 Bae ZELSE 
i 38 0876 indents [3] = 0; 
; 514 087 indents $4 = Q; 
gs 345 0878 indents (5] = 0; 
: 516 0879 indents (6) = 0; 
; Sir 0880 
Book ie | 
: 520 th IF cli$present (XASCID' INDENT’) 
s Se) 0884 
: 358 tt we 
: 524 L 0887 3 XIF DSRPLUS | 
BB. tees 
° | 
3; per U 0890 IF .cmdblk Ccontents$v_tms11] 
3 328 U 0891 THEN 
eat pan 
: 23! 3 Bape ; Generating TMS11 output. 
; 338 7 344 ; SIGNAL (contents$_ignored, 1, %ASCID'INDENT', contents$_confqual); | 
; 535 U 0898 INCR i FROM 0 TO 6 DO indents [.i] = 0; | 
; 536 U 0899 END 
s $37 U 0900 ELSE 
: 538 U 0901 BEGIN 
: $8 U 0908 ied | 
: 541 U 0904 total_indent; | 
; 828 U 0906 WHILE cl {Soet value (ZASCID' INDENT’, tmp_str) DO 
: ate 34:44 IF i call_tparse (tmp_str, ind_state, ind_key, false) | 
: 546 U 3444 SIGNAL_STOP (contents$_badvalue, 1, tmp_str); ' 
eo bee ) 
° ; | 
: HH 3 0312 Validate left margin indent. 
: 331 u at} total_indent = .indents (0); | 
; 338 : 39 IF .total_indent GEQ .cmdblk Ccontents$g_page_width] | 
: 336 U 0918 BEGIN 


a 
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3 U 0919 $str_copy (target = tmp_str . 
3 i : 8 Y String = $str_concat (*CHAPTER=', $str_ascii (.indents (0]))); $ 
: 3 
3 2 9 U 09 ¢ SIGNAL_STOP (contents$_badvalue, 1, tmp_str, contents$_valerr); : 
; 560 U 09 END; : 
s 3e) U 0924 ; 
; 66 U 0925 ' : 
; U 0926 ! Validate HL1 indent. $ 
; eee U 0927 ! : 
$ 20? y oe 8 total_indent = .total_indent + .indents (1); : 
: 567 U 0930 IF .total_indent GEQ .cmdblk Ccontents$g_page_width] : 
: 568 y 0934 THEN . rests: | : 
: 288 u 09 ¢ BEGIN 3 
; 570 U 09 $str_copy (target = tmp_str, | 3 
; 27) u Ope String = $str_concat ('HL1=", $str_ascii (.indents [1]))); | : 
3 ng U 0936 SIGNAL_STOP (contents$_badvalue, 1, tmp_str, contents$_valerr); : 
; 574 U 0937 END; : 
|. ire U 0938 3 
: 576 U 0939 | : 
3 Srr U 0940 ! Validate progressive indents : 
; 578 U 0941 ! : 
s 6OTY U boc§ INCR i FROM 2 TO .cmdblk Ccontents$g_headers] DO : 
; 580 U 094 ; BEGIN 3 
; 281 ° bode ; total_indent = .total_indent + .indents C.iJ; | : 
; 585 U 0946 3 IF .total_indent GEQ .cmdblk Ccontents$g_page_width] : 
; 584 U 0947 3 THEN | : 
; 585 U 0948 BEGIN : 
; 586 U 0949 $str_copy (target = tmp_str, I | 3 
; 587 U 0950 String = $str_concat (‘HL', $str_ascii (.i), ‘=", : 
; 4588 u 0951 3 $str_asci? (.indents C.iJ))); 3 
; 589 U B336 3 : 
; 590 U 095 3 SIGNAL_STOP (contents$_badvaiue, 1, tmp_str, contents$_valerr); é 
; U 0954 END; 3 
; re U 0955 3 
Te se U 0956 END; : 
; 594 U 0957 3 
; 595 U 0958 END; 3 
; 596 U 0959 : 
; oer 0960 ZELSE : 
; 7 096 | 3 
; a0F 96 indents (3) = 2; ; 
; 600 96 indents (4) = 2; F 
; 601 0964 indents = 2; : 
; one 0965 indents [6] = 2; : 
; 60 0 : 
; 604 096 xFI ‘ 
; 605 0968 : 
; 606 969 END; : 
: 607 970 : 
: 608 71 ! : 
; 609 97 ' /CNOJLEADER_DOTS = k ; 
; 610 97 ‘ : 
3; «(611 974 : *WARNING®* : 
; 612 0975 : : 


] 
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; 613 144) ! This qualifier must be processed after /FORMAT. 
3 o18 44 ; It depends on the value of /FORMAT. 
; 9 ' 
3 618 $78 *WARNING®* 
; oi8 . 1 CHSWCHAR (ZC'.*, CHSPTR (cmdblk Ccontents$c_leader_char])); 
; 620 L 09 : Z1F DSRPLUS | 
; 621 U 0984 ZTHEN 
; 6 § u 0985 
3 6 U Hy IF .cmdblk Ccontents$v_tms11] 
> 624 U 38 
; 625 U 0986 BEGIN | 
; 626 U 0989 ‘ 
; 627 U 0990 ! Generating TMS11 output. 
; 628 U 0991 i | 
; 629 U 099 SELECTONE cli$present (ZASCID'LEADER_DOTS') OF 
; 630 U 099 SET 
: 631 U 0994 | 
; O36 U 0995 Ccli$_present, cli$_negated): 
; 63 U 0996 ! 
3 ot 4 oad Value explicitly given or necated - ignored for TMS. 
; 636 : 4444 SIGNAL (contents$_ignored, 1, ZASCID'LEADER_DOTS', contents$_confqual); | 
; 638 U 1001 COTHERWISE): 
; 639 U 1006 : 
; 640 U 100 ' Value defaulted 
; 641 U 1004 ! or value absent (not possible, value is present by default). 
> 642 U 1005 ! In any event, do nothing. 
; 6435 U 1006 : 
> 644 U 1007 : | 
3; 645 U 1008 
; 646 U 1009 TES; 
3; 647 U 1010 
; 648 U 1011 ¢ CHSWCHAR (ZC° *, CHSPTR (cmdblk Ccontents$c_leader_char])); 
> 649 U 3 4 END | 
; 650 U 101 ELSE 
; 651 U 1014 BEGIN 
3 $36 U 1015 
; «65 U 1016 SELECTONE cli$present (ZASCID'LEADER_DOTS"') OF 
; 654 U 1017 SET | 
3; «655 U 1018 
3 $26 U Ha Ccli$ procentas 
; 65 U 1020 BEGIN 
; 658 U 1021 : : 
3; 659 U 1958 ' Value explicitly given. 
; 660 U 19s : 
3 yok : + : cli$get_value (ZASCID'LEADER_DOTS', tmp_str); | 
; 
3 oss : + § IF NOT call_tparse (tmp_str, dot_state, dot_key, true) 
; 665 U 1028 SIGNAL_STOP (contents$_badvalue, 1, tmp_str); 
3 666 U 1029 
; 66 U 10350 END; 
; 668 U 193) j 
; 669 Uv 1032 Ccli$_negated): 
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; 670 U 1033 : 
: ef ¥ ! : Value explicitly negated. 
5 ot? 18 8 CHSWCHAR (2C' ', CHSPTR (cmdblk Ccontents$c_leader_char])); 
3 79 U 1038 COTHERWISE): 
; 67 U 1039 ; 
s OF U 1040 ! Value defaulted 
; 678 U 1903 : or qualifier absent (not possible - present by default). 
; 679 ul rh} ! In any event, do nothing. 
; 680 U 104 ! 
; 681 U See ; 
; 68 U 1045 
; 68 U 1966 TES; 
; 684 U 104 
; 685 U 1048 END; 
; 686 U 1049 
; 687 1050 xFI 
> 688 1051 
; 689 1936 : 
3 oy 1322 2 ; /PAGE_NUMBERS = (CCNOJRUNNING], CSTANDARDJ, CLEVEL = nJ) 
; 69 1055 ‘ ! NORUNNING is the same as STANDARD. 
; 69 1056 2 : 
: 694 1057 2 : *WARNING®* 
; 695 1058 : 
: 696 1059 ! This qualifier must be processed after /FORMAT. 
; 697 1060 : It depends on the value of /FORMAT. 
; 698 1061 ! 
; 699 es : *WARNING®* 
: 700 106 ! 
; 701 1064 2 cmdblk Ccontents$v_standard_page] = true; 
: 4 1003 § qualifier_value = 6; 
; 704 1067 IF cli$present (ZASCID*PAGE_NUMBERS') 
; 705 1068 THEN 
; 706 1069 BEGIN 
; 707 1070 
: 708 1071 WHILE cli$get_value (ZASCID'PAGE_NUMBERS', tmp_str) DO 
; 4 176 if 0 call_tparse (tmp_str, page_state, page_key, false) 
: af tA SIGNAL_STOP (contents$_badvalue, 1, tmp_str); 
3 ag 1976 4 IF _ .cmdblk Ccontents$v_tms11] and (.qualifier_value NEQ 6) 
: 714 1077 3 THEN 
3; «6715 1078 4 BEGIN 
: 716 1079 4 ' 
3 ate 1980 ? , LEVEL = mn not allowed for TMS11 output. 
: ah 1086 : SIGNAL (contents$_ignored, 1, ZASCID'LEVEL’, contents$_confqual); 
3 731 1084 4 gual {tier _velue = 6; 
ae ; 1085 ND; 
; os 1 § 
; 726 1 END; 
3s es 19 8 ae 
; 726 1089 cmdblk Cccntents$g_page_level] = .qualifier_value; 
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3 yer 1090 
; 728 1091 : 
; rey 1936 ! /CNOJBOLD = n 
; 730 109 : 
3. £3) 1094 qualifier_value = -1; 
oe ¢ 1095 
3; 7 1998 IF cli$present (ZASCID'BOLD') 
: 734 109 THEN 
3 a9 1098 
Th L 1099 Z1F DSRPLUS 
s a7 U 1100 THEN 
; 738 U 133) 
3 fo U1) ; BEGIN 
: 740 U 110 qualifier_value = 6; 
; 41 ¥ 1104 cli$get_value (ZASCID'BOLD', tmp_str); 
: 74 U 1106 IF NOT call_tparse (tmp_str, numb_state, numb_key, false) 
: 744 U 1107 THEN 
: 745 U 1108 SIGNAL_STOP (contents$_badvalue, 1, tmp_str); 
> 746 U 1109 
3: 747 U 1110 END; 
: 748 U 1111 
; «749 11i¢ ELSE 
: 750 111 
; «751 1114 qualifier_value = 6; 
; Peg 1115 
; 1116 “FI 
: 754 1117 
3 99 1118 2 cmdblk Ccontents$g_bold] = .qualifier_value; 
; 1119 2 
s or 1120 2 : 
; 758 1121 § ! /CNOJDOUBLE_SPACEC=nJ 
; 759 1156 : 
: 760 112 qualifier_value = -1; 
s 761 1488 
s 76 L 1125 ZIF DSRPLUS 
; 76 U 1126 THEN 
: 764 U eT 44 
: 765 U 1128 IF cli$present (ZASCID'DOUBLE_SPACE') 
; 766 U 1168 THEN 
: 767 U 1130 BEGIN 
: 768 U 1131 qualifier_value = 1; 
; 769 u 113¢ cli$get_value (ZASCID'DOUBLE_SPACE', tmp_str); 
: aa : 1134 IF NOT call_tparse (tmp_str, numb_state, numb_key, false) 
; ere ¥ 1136 SIGNAL_STOP (contents$_badvalue, 1, tmp_str); 
; oP? Y 1138 IF .qualifier_value LSS 1 
: ahs : Bb SIGNAL_STOP (contents$_badvalue, 1, tmp_str, contents$_valerr); 
; 779 U 13¢6 END; 
s reo U 114 
: «781 1144 2FI 
3 ree 1145 eee 
; # 1146 cmdblk Ccontents$g_double_space] = .qualifier_value; 
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; 7 1147 
; 785 1328 ' 
3 4 1135 / IDENTIFICATION 
; «788 1151 IF cli$present (ZASCID' IDENTIFICATION’) 
; «789 11 § THEN 
: 790 11 SIGNAL (contents$_ident, 2, .cntvrl, .cntvrp); 
; 791 1154 
; 79 1322 : 
; 1156 ! /CNOJLOG 
r3 1188 it Lis t (ZASCID'LOG') 
3 cli$presen . ¥ 
; 796 1139 THEN 
; 797 1160 cmdblk Ccontents$v_log] = true 
; 798 1161 
; 799 1308 cmdblk Ccontents$v_log] = false; 
; 800 116 
: 801 1164 : 
; 80 1165 ! /CNOJOUTPUT = filespec 
; 80 1166 : 
; 804 1167 IF cli$present (ZXASCID'OUTPUT') 
: 805 1168 THEN 
; 806 1169 BEGIN 
: 807 1170 cmdblk Ccontents$v_output] = true; 
3 ape 430) cli$get_value (ZASCID‘OUTPUT', cmdblk Ccontents$t_cutput_file]); 
; 810 1173 
; «6811 1174 cmdblk Ccontents$v_output] = false; 
: aig 1175 
s #8 1176 : 
: 814 1177 ! /REQUIRE = filespec 
; 815 1178 ! 
; 816 1179 
; 817 1180 IF cli$present (ZASCID'REQUIRE') 
; 818 1181 THEN 
; 819 1136 BEGIN 
: 820 118 cmdblk Ccontents$v require] = true; : 
§ 832 HY cli$get_value (ZASTID'REQUIRE', cmdblk Ccontents$t_require_file]); 
: B2 1186 
; 824 1187 cmdblk Ccontents$v_require] = false; 
; 825 1188 
; 826 1189 ! 
: B56 1109 } /SECTION_NUMBERS = { AS_INPUT : ALL | NONE | LEVEL =n } 
; 86> 1136 cmdblk Ccontents$v_include_sections] = true; 
3 31 L 1194 ZIF DSRPLUS 
3 3 U 1195 THEN 
; 3 U 1338 
3 $34 : 1108 cmdblk Ccontents$g_sections] = -1; ! Display section numbers AS_INPUT 
3 35 U 1199 IF cli$present (ZASCID'SECTION_NUMBERS') 
: ; U 1200 THEN 
3 8 U1 4 BEGIN 
: 323 : 1508 cli$get_value (ZASCID*SECTION_NUMBERS', tmp_str); 
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v04- CNTCLI = CONTENTS VMS Command Line interface 14-Sep-1984 13:05: RUNOFF. SRC CNTVMS 832s ( | 
: re. ¥ } : a, call_tparse (tmp_str, sect_state, sect_key, false) : 
3 rb : } $ SIGNAL_STOP (contents$_badvalue, 1, tmp_str) | : 
Eo ug * Pi 
RE git g res Sea! 
; Be? : \¢ cmdblk Ccontents$g_sections] = 6; ! Display ALL section numbers : 
; Be) : 1 Fr_5 present (ZASCID*SECTION_NUMBERS') EQL cli$_negated 3 
; B88 1216 BEGIN ; 
; 854 121 cmdblk ECcontents$v_include owe 2 false; 3 
; 855 1218 cmdblk contents$g_sections 3 
; 856 1219 END; ; 
; 857 1 sy $ 
; 858 1221 ZF 1 : 
: $8 ee aie 
: 861 1394 | /CNOJUNDERLINE = ; 
; 863 1386 qualifier_value = -1; 3 
: 865 1228 IF cli$present (XASCID'UNDERLINE') ; 
; £08 1386 THEN : 
: 868 L 1231 2 XIF DSRPLUS ; 
3; 869 U 1S36 XTHEN : 
; Br U 1582 BEGIN 
: 87 U 1235 qualifier_value = 6; ; 
; 1h 7 : $$ 2 cli$get_value MCRASCID UNDERLINE", tmp_str); : 
: 875 U 1538 5 IF NOT call_tparse (tmp_str, numb_state, numb_key, false) ; 
; 876 U 1s72 2 THEN : 
3 4h 2 ‘ m6 SIGNAL_SIOP (contents$_badvalue, 1, tmp_str); : 
; 879 u 1342 If. -qualifier_value GTR 6 2 
: rt 1344 SIGNAL_STOP (contents$_badvalue, 1, tmp_str, contents$_valerr); : 
: Bas b 134s END; : 
; B85 1248 ¢ RELSE ; 
; NG 1386 qualifier_value = 6; ; 
; 888 1251 : 
; 44 1636 xFI : 
: 831 1384 cmdblk Ccontents$g_underline] = .qualifier_value; ; 
; 89 125 l 3 
3 Be i Process input file(s) and positionai qualifiers. | : 
: 896 1 25 WHILE (status = cli$get_value (ZASCID'INPUT', cmdblk Ccontents$t_input_file])) DO | F 
; 897 1260 BEGIN | : 

| 
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dg ! Process input file. 
i Generate Figures, Tables, and Examples and finish up if 

the current input file is not concatenated to the next. 

if :status NEQ cli$_concat THEN tocfin (); 


NNAOOOSAOAOAA -1-41 
—OOONOUE WN S| OO 


rrorororerererrrrn Zz 


— 4 2 ts on 


Ag (.termination_status OR sts$m_inhib_msg); 


i 
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-TITLE CNTVMS CNTVMS = CONTENTS VMS command Line Inter 
MIDENT \v04=0000°° 
~-PSECT _LIBSKEY1$,NOWRT, SHR, PIC,1 

00000 ; TRASKEYSTO 


U.9: -BLK 0 
47 46 49 GE 4E 55 52 00000 ; TPASKEYST 
> 11: ASCII b tamiabieads : 


00007 - -BY 
00008 ; TPASKEYSTO 


U.18: -BLK 0 
47 4E 49 GE 4E 55 52 4F 4E 00008 ; TPASKEYST 
20: eASCII \NORUNNING\ : 
FF 00011 -—BYTE =1 F 
00012 ; TPASKEYSTO 0 


26: BLK 
4C 45 56 45 4C 00012 ;TPASKEYST 
FF U.28:  .ASCII + ah 3 


00017 -BYTE 
FF 00018 ; TPASKEYFILL 
U.50: .BYTE <1 : 
-PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 
00000 NUMB_STATE:: 


s LK 
41FS 00000 ; TPASTYPE 


U.2: .W 16883 : 
00000000* 00002 ; TPASADDR 
U.5: - LONG <<QUAL IF IER_VALUE-U. 3>-4> : 
15F7 00006 ; TPASTYPE 
U.4: oW 5623 3 
FFFF Q0008 ; TPASTARGET 
U.5: -WORD -1 : 
15F7 OOOOA ; TPASTYPE 
U.6: -WORD 5623 3 
FFFF QOOOC ; TPASTARGET 
U.7: WORD -1 : 
BLKB 2 


20006 ae 
001 PAGE STATE: : 
9300 00010 ; TPASTYPE 
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z= 
ann 
On 


01 
00000000 
00000000v 

0000* 
9301 

01 
00000001 
00000000Vv 

0000+ 
0502 
0030 
043A 
55F3 
00000000* 
0000+ 


157 
FFFF 


0000+ 
0000* 
0000* 
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U.12: . WORD 
00012 ; TPASFLAGS 
U.13: BYTE 
000135 ; TPASPARAM 
U.14: . LONG 
00017 ; TPASACTION 
U.15: LONG 
0001B ; TPASTARGET 
U.17: WORD 
0001D ; TPASTYPE 
U.21: WORD 
OOO1F ; TPASFLAGS2 
U.22: BYTE 
00020 ; TPASPARAM 
U.23: ~ LONG 
00024 ; TPASACTION 
U.24: LONG 
00028 ; TPASTARGET 
U.25: » WORD 
0002A ; TPASTYPE 
U.29: - WORD 
0002C ; TPASTYPE 
U.31: WORD 
QOO2ZE ; TPASTYPE 
U.32: ~ WORD 
00030 ; TPASTYPE 
U.33: WORD 
00032 ; TPASADDR 
U.34: LONG 
00036 ; TPASTARGET 
U. 35: ~WORD 
00038 ;PAGE _END 
6: .BLKB 


00038 ; TPASTYPE 
36: 


QOO3A ; ZTBASTARGET. 


.PSECT 
00000 NUMB_KEY:: 
00000 ; TPASKEYO 

U.13 -BLKB 
00000 tee aoe 
00000 gtpaseyd 
00000 ; ; TPASKEY 

b. WORD 
00002 ; ; PASKEY" 


U WORD 
00004 ; TPASKEY 
U.27: WORD 


»PSECT 
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-27904 
1 

0 
<<ENTER_PAGE=U.15>=4> 
<<U.16°U.17>-2> 

-27903 

1 

1 

<<ENTER_PAGE-U.24>=4> 
<<U.16°U.25>=2> 

1282 

61 

1082 

22003 

<<QUALIF IER_VALUE-U.34>-4> 
<<U.16°U. 35-2> 
0 

5623 

-1 
_LIBSKEYO$,NOWRT, 


SHR, PIC,1 
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<U.26-U.8> 
SPLITS,NOWRT ,NOEXE ,2 
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15- 4 
14- 300-1 3be 3 38 RUNOFF .SRCJCNTVMS.B832; 
P. are + eASCII \$LINE\<0><0><0> 
; OB PAA PIAAR: CONG 17658 6YS 
8 f .ADDRE 
19 P.AAD: .ASCII \DEEPEST HEADER\<0><0> 
6 O P.AAC: .LONG 17694734 
0024 ADDRESS P.AA 
8 $ P.AAF: .ASCII \DEEPEST_HEADER\<0><0> 
$5 8 P.AAE: .LONG 17694734 
00 ADDRESS P. 
Be P.AAH: .ASCII \INDENT\<0><0> 
48 P.AAG: .LONG 
iets ADDRESS P.AAH 
0050 P.AAJ: .ASCII \bAGE ons 
005C P.AAI: .LONG 1769473 
Soee P.AAL Ascii 5 PACE LN ERS\ 
90076 P.AAK: .LONG Nae tied 
4 do ADDRESS P.AAL 
0078 P.AAN: .ASCII \ EVEL \<0><0><0> 
00080 P.AAM: .LONG 17694725 
00084 ADDRESS P.AAN 
494 P.AAP: .ASCII \BOLD\ 
OO8C P.AAO: .LONG 17694724 
44844 ADDRESS P.AAP 
Bee P.AAR: .ASCII \IDENTIFICATION\<0><0> 
OO0OA4 P.AAQ: .LONG ipersrss 
Q00A8 ADDRESS P 
QOOAC P.AAT: ASCII Heats 
44 P.AAS: .LONG 17694723 
00B4 -ADDRESS P.AAT 
434 P.AAV: .ASCII LOUTE YT) <0><0> 
OOCO P.AAU: .LONG 17694726 
000C4 -ADDRESS P.AAV 
QOOC8 P.AAX: .ASCII \OUTPUT\<0><0> 
CODO P.AAW: .LONG iromree 
00D4 ADDRESS P.A 
it P.AAZ: .ASCII Bese ape 
OOEO P.AAY: .LONG 17694 
QOE4 ADDR ‘ss. P.AA 
QOE8 P.ABB: “ASCII ERtlapre> 
gore P.ABA: .LONG 
F -ADDRESS P.ABB 
pore P.ABD: .ASCII \SECTION_NUMBERS\<0> 
108 P.ABC: .LONG 17694735 
1 ‘ ADDRESS P.ABD 
110 P.ABF: rb WERE OL INE \<O><0><0> 
Vif P.ABE: .LON 
1 OORE 
124 P.ABH: .ASCII \INEUT\<0><0><0> 
1 f P.ABG LONG 
01 ADDRESS P.ABH 
-PSECT SOWNS,NOEXE,2 
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nterface 
nterface 


4 
18-3 :5 
2808-1 38e $328: 
00000 QUALIFIER VALUE: 
0004 TMP =STR: WORD 
000 .BYTE 


00 LONG 
000C TERMINATION, Star 


OFFC 00000 
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¢} AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJCNTVMS .B32; 


5 
. 
™m 


UE 
N, DSRTOC$_OPENOUT 
R, Re spontocs. CAPTIONS 


CFILE 
“TEXTD, DSRTOCS_TMS11 
pLDENT. LI$_CONCAT 
“CLs baer 


AT AQOOOVIIVTI TIT VTI VT VT VT [T9000 0"0C0C0€8 -co-on” 


Oe Br MMNMMNMHHHHOHYMMNMMHMMHOHOHHHMS 


SCODES,NOWRT,2 

CNICLI, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- 
CALL LT TPARSE "1 
LiBsst0 My RI 
bpSRTOCS. BAD? 
CLiscet VAL 
CLISPRES NTe ys 


AAA 
QUALIFIER VALUE, R4 
CMDBLK, R3 


#3471956, SSTRSDESC 
Boer 1 6. SSTRSDESC 
Hat 1 6. SSTRSDESC 
_, SSTRSDESC 


ae’ R8 


CMDBLK+84 


a5 
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-S$ep-1984 23:58: AX-11 Blis 32: (4) | 
~ TENTS VMS command Line Interface 15-sep- g:¢) RUNOFF. SRCJCNTVMS .B32; | 
vouno 0 ENTCUL - CONTENTS VMS Command Line interface 14-Sep 1984 #3 2 ; | 
= : PB a CALLS 42. CLISGET_VALUE i ors2) | 
A ath Bove ALIFIER_VALUE : 
ei *e Bh BO b008) ROE SUAC TET ER VATUE tHb aL Ks24 : OBs9 ; 
18 A3 64 4 90 MOVL #6, QUALIFIER_VALUE : bB34 ; 
64 ae saett ts PUSHAB P.AAC : | : 
6 "8 Oh fe o008s CALLS #1, CLISPRESENT : ” 3 
: 4 i 3 0091 PUSHAB THe STR hg 
¥ 30 44 00097 CALLS #2, CLISGET_VALUE {0830 
E D4 9A CLRL R10 3 ; 
5A DD G009C PUSH RIO are ; 
00000000' EF 9F OO09E ue West : : 
0% Oe EB booa? CALLS #4,” CALL_TPARSE ; : 
oh 30 SF OOOAD PUSHAB INP_STR 3 0841 : 
“Rate pase I. ; : 
58 DD 00082 PUSHL RB mai : : 
, G3 Fe ooet CALLS. UTERSTOR ug j ous) |i 
BF DD oooRe PUSHL ADSRTOCS_VALERR 3 0045 : 
a oe a90c¢ PUSHAB TMP_STR ; : 
01 Dd 000C PUSHL #1 ; ; 
58 DD 000C7 PUSHL ; 
6° bc 50 itd 28: MOVE QUALTFIER VALUE, CMDBLK+4 : O863 : 
046 =A s MOVL #8, IN ; 086 ‘ 
08 DO 000D0 : : 
ON 08 0 00004 move «Re, INDENTS#8 : pees 
28 AS Oe 20 00008 RQ —_—INDENTS#16 : 0879 
33 i D% OOODE ELRL INDENTS #26 ; 0883 : 
~~ & 7 dees CALLS” ie CLISPRESENT : 
10 20 £9 OO0ES MOVL #2, INDENTS+12 : 096 : 
cE 02 00 O00EB MOVL #2, INDENTS+16 0964 ; 
ON Bs OR Repel MOVL #2. INDENTS+#20 : 0965 ; 
34 AS Og D0 000k 3 MOVL #2, INDENT 94 : 0981 : 
38 A BR ROR MOVE #46, CMDBLK+ : 1064 ; 
02 «OA 2E 90 OOOFB 3$: BISB2 #8. CMDBLK : 1065 : 
63 OB 88 O0109 MOVL #6, QUALIFIER VALUE > 1067 ; 
uA OF 8010 CALLS” #1 CLISPRESENT : 
66 OF FB ai08 BLBC RO’ 6S ; 1071 
F o, kL oF Goite ss: buenas THe STR 3 
68 AS OF O14 CALLS 3, CLISGET_VALUE : : 
tf $6 £9 oo117 ftRL | <tgPS Bees : 
7E D4 OO11A - : : 
5A DD OOIIC PUSHAB PAGE. STATE : 
00000000" EF 93F BIE PUSHAB 8 na : ; 

6B 04 FB 137 CALLS #4,~CALL_TPA 


4 | 
758: - - - Page 33) 
~ TENTS VMS command Line Interface 1b-sépe1 4 58:2 AX-11 Bliss-32 v4.0 242 
vou~000 ENTCLL - CONTENTS VMS Command Line interface 12-08-13 #3:58:24 RUNOFF .SRCICNTVMS .B32;1 eo 
2 RO, 4$ ; | : 
sé 04 2 ge 4 . ante TMP_STR ; 1074, 
1 0D 001 9 PUSHL #1 : | 
5 DD a PUSHL Rs | ; 
69 FB 00134 CALLS #3, LIBSSTOP | ; 
BF ET bors 5$ Bee i CMDBLK, 6$ : 1596 | : 
” 8% 2 O} a M4 ; CMPL Q ALIFIER_VALUE, #6 3 | ; 
1B 1 14 
000000006 af pd a1 PUSHL #DSRTOCS_CONFQUAL ; 1082 | 
000000006 4 DD eres PUSHL #DSRTOC$_ IGNORED ; 
000000006 00 04 FB 0133 CALLS #4, LIBSSIGNAL F sone : 
64 06 dO Ea MOVL #6. QUALIFIER VALUE : 1084 : 
08 A3 64 D0 80780 6$ MOVL QUALIFIER_VALOE, CMDBLK+8 ¢ 1089 ; 
01 CE 00161 MNEGL #1, QUALIFIER_VALUE ; 
= 0084 ¢5 SF 00164 PUSHAB  P, 3 1096 | 
Ag 1 FB 00168 CALLS #1, CLISPRESENT 
Sg aa a eae ane 
10 re 96 50 00171 7$ MOVE QUALIFIER, VALOE . CMDBLK+16 ; 1118 
1c 83 g 56 $0198 MOVL QUALIFIER_VALOE , CMDBLK+28 ; 1146 | 
66 ss 5 a $0180 CALLS #i, CLISPRESENT 
1B 50 £9 00183 BLBC = RO, 8$ . 
000000006 EF DD 00186 PUSHL CNT VRP | 
000000006 EF ODD 0018¢ PUSHL CNTVRL ; | 
000000006 BF pp oo19¢ PUSHL  #DSRTOCS_IDENT | 
04 FB 0019A CALLS #4, LIBSSIGNAL 
paeenent Coad 00OA8 C5 9F OO1A1 8$ PUSHAB P.AA : 1158 
66 01 FB OO1AS CALLS #1. CLISPRESENT ; | 
83 3 B OO1A8 B1SB2 #32, CMDBLK ; 1160 
Sos APB Th, Hea Bye NS 
56 ee § eB 00187 CALLS #1, CLISPRESENT : 
OF 50 £9 OO1BA BLBC * 118 oe 
63 01 88 001BD BISB2 #. CHDBLK : 1170 
44 Ad OF abi PUSHAB CMBLK+6 ; 
67 mae 63 PB tat CALLS #2, CLISGET_VALUE ia 
63 83 BA poree 11$ BICB2 #1, CMDBLK 1174 
0008 C5 OF OOICE 12$ PUSHAB P.AAY 
bb gi FB 00103 CALLS ae CLISPRESENT ; 
os be H $1b9 BISB2 #4. CRDBLK 1185 
4C a3 F 001DC PUSHAB CMDBLK* ; 
67 ORB 3 Fo oles CALLS #2, CLISGET_VALUE pie 
a8 ah BOIER 13$: Bree uss CMDBLK > 1187 
§ % 8 BOTEe 14$: BISB2 #16, CMDBLK > 1192 
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0-138 $3: a AX=11 Bliss-32 V4.0-742 


RUNOFF .SRCJCNTVMS.B32; 1 
#6, CMDBLK+20 
P. ABC 


ai. CLISPRESENT 
#CLIS_NEGATED 


° 
#16, CMDBLK 
CMDBLK+2 
#1, QUALIFIER_VALUE 
ai. cL SPRESENT 
#6. QUALIFIER_VALUE 
QUALIFIE R_VALOE, CMDBLK+12 
cmp K+60" 
ABS 
oe CLISGET_VALUE 
RO, STATUS 
STATUS, 18$ 
STATUS, #CLIS_CONCAT 
#0, TOCFIN 
#268435456, TERMINATION_STATUS, RO 
Save nothing 
=(SP) 


4(AP), -(SP) 
#3, CONDITION_HANDLER 
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V04- .TPARSE == Invoke TPARSE to process qualifi 14- RUNOFF .SRCJICNTVMS .B32; 


ZSBITL ‘CALL_TPARSE <= Invoke TPARSE to process qualifier values’ 


F 4 

MS = CONTENTS VMS command Line Interface 15-Sep-1984 23:58: AX-11 Bliss-32 V4.0-74 Page 35. 
iREBrHSEE HHS echt: 83044 7 3 

ROUTINE call-tparse (string : REF $Sstr_descriptor (), state_tab, key_tab, blanks) = 


' 
FUNCTIONAL DESCRIPTION: 


This routine calls TPARSE to parse the given string with | 
the given state and key tables. 


! FORMAL PARAMETERS: 


string - Address of a string pose 4 pot of string to parse 
state_tab - Address of TPARSE state tables 

key_tab = Address of TPARSE key tables 

blanks - true if blanks are to be processed explicitly 


i 

i 

i 

' 

i 

i 

' 

i 

i 

' 

i 

' 

; IMPLICIT INPUTS: 
None 

; IMPLICIT OUTPUTS: 
i 
i 
i 
i 
i 
i 
i 
i 

' 

i 
ie 
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None 


ROUTINE VALUE: 
COMPLETION CODES: 


Returns completion code of Lib$tparse. 
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939 SIDE EFFECTS: 

94 

s 

308 ; 

944 

945 BEGIN 

946 

947 LOCAL 

948 1 tparse_block : BLOCK Ctpa$k_lengthO, BYTE], 

949 1 status; 

950 1 

951 1 : 

Be : Initialize the TPARSE parameter block. 

954 1 tparse_block Ctpa$l_count] = tpa$k_count0; 

955 17 tparse_block [ipa$l_options] = 7 abbrev; 

956 18 tparse_block (tpa$v_blanks] = .blanks; 
957 19 tparse_block (tpa$l_stringcnt] = .string Cstr$h_length); 

958 0 tparse_block ([tpa$l_stringptr] = .string str$a_pointerd; 
959 1 tparse_block tped} .conencnt? = 6: 
960 § tparse_block tpesi_tokenetr = 0; 

961 tparse_block ([tpa$l_number = 0; 
206 4 tparse_block (Ctpa$l_param] = 0; 

96 5 

964 $ : 

33? 5 } Parse the string and return parse status. 


; Routine Size: 
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1 RETURN LibStparse (tparse_block, .state_tab, .key_tab); 
1383 ¢ END : . zs zm . 


. 
. 


0000 00000 CALL_TPARSE: 
WORD 33 e nothing 
SE ¢2 000 SUBL2 #32, SP 
DD 000 PUSHL : 
04 A D 0 MOVL #2, TPARS -t CK+4 
01 : 10 AC F INSV BLANKS, #0; #1, TPARSE_BLOCK+4 
06 =A p 001 MOVL STRING R 
08 AE 60 3¢ 0016 MOVZWL (RO) tence BLOCK+8 
OC AE 06 =A 00 OO1A MOVL 4(ROS TPARSE ptock+i2 
10 AE 7C O001F CLRQ —« TPARSE BLOCK 
1¢ AE 7C 000 é CLRQ =‘ TPARSE BLOcKs28 
7E 08 AC 7D 900 MOVQ = STATE - 
08 AE 9F 00029 PUSHAB TPARSE B 
000000006 00 03 FB poo es CALLS #3, SEABLOCK 
04 00033 RET 


52 bytes, Routine Base: S$CODE$ + 0261 
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ZSBTTL_ "ENTER_PAGE == Action routine = enter page display type’ 
ROUTINE enter_page = 


FUNCTIONAL DESCRIPTION: 


This routine is called as an action routine by TPARSE. 
It sets contents$v_standard page from tpa$l_param. 


} 

} 

i 

FORMAL PARAMETERS: 

; AP Ctpa$l_param] - value to set contents$v_standard_page 
{ IMPLICIT INPUTS: 

None 

i IMPLICIT OUTPUTS: 

cmdblk Ccontents$v_standard_page] 

i 
i 
i 
i 
i 
i 
i 
ie 


ROUTINE VALUE: 
COMPLETION CODES: 


; ss$_normal 
; SIDE EFFECTS: 
3 None 

3 

z ™ 

3 

3 BEGIN 

: BUILTIN 

3 AP; 

3 

3 MAP 


AP : REF BLOCK C, BYTE); 
cmdblk Ccontents$v_standard_page] = .AP Ctpa$l_param); 
RETURN ss$_normal; 
END; 
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0000 00000 ENTER_PAGE: 
wORD 


° Save nothing 
01 03 20 AC FO 00002 INSV S2(AP), #3, #1, CMDBLK 
50 01 ? 000C MOVL #1, RO 
4 0000F RET 


16 bytes, Routine Base: S$CODE$ + 0295 


Pete te Ge 


LS eee ee. 


4 
CNTVMS = CONTENTS VMS command Line Interface bse -1984 23:58: AX-11 Bliss-32 V4.0-74 Page 38 
ENTER_PAGE == Action routine = enter page displ 1228081382 #3:38:23 ERUNOFF SRC CHIVES 83064 . (6) 


32 


<a 


——) 3 4 as 


—OODNOULS WN —"OOONOu 


WW 
wr 


Law 


OOCCCOCOCOCOOCCOCO OOOO OOOOOOoOoOOo 


Www 
ovens 


SOOooooovono 
MEWN—OOW 


PARRARARR ERE RERERE 


ce ee ce ee ee ee ek ee ae ed dd oe 2d od wd od = 3 «oS g 
NOUS WI OO OONOUS wh 


ceccceccceccececcecececcececececececececececceccececr 
a ee a a a ee TI 
a YY 


. 
e 
. 
e 
. 
° 
. 
cz 
. 
° 
° 
° 
. 
° 
. 
° 
. 
° 
. 
o 
. 
° 
. 
a 
. 
° 
* 
° 
© 
° 
. 
@ 
. 
° 
. 
o 
7 
° 
. 
o 
* 
° 
* 
° 
© 
° 
° 
. 
° 
. 
° 
+ 
o 
. 
° 
© 
oO 
. 
e 
. 
° 
° 
° 
. 
a 
o 
° 
. 
° 
. 
° 
. 
o 
+ 
° 
7 
° 
+ 
° 
. 
oe 
7 
° 
° 
° 
7 
° 
° 
i 
. 
° 
7 
° 


=—OOONOUS WN O0an 


—Oo0e 


etateted 


4 
S = CONTENTS VMS command Line interface 15-sep-1984 $9: 38:01 AX-11 Bliss-32 V4.0-74 
AGE == Action routine - enter page displ 14-Sep-1984 15:05: RUNOFF .SRCJCNTVMS.B32; 


SRPLUS 


& 
a 
& 
R 
' 
' 
: FUNCTIONAL DESCRIPTION: 
This routine is called as an action routine by TPARSE. 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
J 
' 
' 
' 
' 
' 


It sets the value of contents$v_tms11 based on the value of 
the parameter passed by TPARSE. 


i FORMAL PARAMETERS: 

AP Ctpa$l_param) - true if generating TMS output, false otherwise 
i IMPLICIT INPUTS: 

None 
i IMPLICIT OUTPUTS: 

cmdblk Ccontents$v_tms11] ~ set to the value of AP ([tpa$l_param] 


i ROUTINE VALUE: 
i COMPLETION CODES: 


ss$_normal 
i SIDE EFFECTS: 
None 
BEGIN 
BUILTIN 
AP; 


MAP 
AP : REF BLOCK C, BYTE); 


cmdblk Ccontents$v_tms11] = .AP Ctpa$l_param]; 
ee ss$_normal; 


2FI 


On w 
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Saagssocscess 
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i 


ma 
“4H 
m< 


displaye 
deepest level to display 


cmdblk Ccontents$g_sections] 


ROUTINE VALUE: 
COMPLETION CODES: 


ss$_normal 
SIDE EFFECTS: 
None 


4 ZIF DSRPLUS 
: ZTHEN 
4 ZSBTTL "ENTER_SECT == Action routine = enter section number display level’ 
4 ROUTINE enter_sect = 
4 1+¢ 
4 FUNCTIONAL DESCRIPTION: 
4 i This routine is called as an action routine by TPARSE. 
4 : It sets the level of section number to be displayed based on the 
2 } value passed by TPARSE. 
4 FORMAL PARAMETERS: 
4 i AP Ctpa$l_param) = -1 = display section numbers AS_INPUT 
4 : = § - display ALL section numbers 
4 ! = =-2 = don't display section numbers 
44 ! = 0 - user specified deepest level to display 
o AP Ctpa$l_number] 2 user specified level 
i IMPLICIT INPUTS: 
None 
IMPLICIT OUTPUTS: 
cmdblk Ccontents$v_include_sections] = true if sections are to be 
i 
i 
i 
i 
i 
i 
i 
i 
i 


BEGIN 
BUILTIN 
AP; 
MAP 
AP : REF BLOCK C, BYTE); 
SELecToMe -AP Ctpa$l_param] OF 
{-2]: 
BEGIN 
i Don't display secticn numbers. 
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imdb lk contents$v_include ~ CK es = false; 
= contents$g_sections 


{-1): 
BEGIN 
; Display section numbers AS_INPUT. 


imdb lk contents$v_include * ee es = true; 
cmdblk Ccontents$g_sections : 


{0}: 
BEGIN 


User specified deepest level to display. 

cmdbLk contents$v_include sections] = 

— ‘contents$g_sections] = .AP [tpasl— voumber): 
(6): 

BEGIN 

Display ALL section numbers. 


cmdblk Ccontents$v_include sections] = true: 
cmdblk Ccontents$g_sections] = 6; 


TES; 
RETURN ss$_normal; 
END 
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- TENTS VMS and Line Interfac 4 23:58: AX=11 Bliss-3 Page 44 CN] 
ENTER SPAGE Action rout ine = enter page displ 14- 300-1 38e #3:68:24 RUNOFF .SRC CNTVMS6 $33! (10) v4 
16 ; ! CHAPTER and HL1 through HL6 
1605 1 indents C.AP Ctpa$l_param]] = .AP Ctpa$l_number]; 
+a dg 
16 8 1 RETURN ss$_normal; 
HE Rate 
1631 1 FI 


6 | 
CNTVM CNTVMS = CONTENTS VMS gommand Line Interface 15-sep-1984 $9: 38:21 AX-11 Bliss-32 V4.0-74 Page 45 | 
v04- CONDITION_HANDLER = Main program condition hand 14-Sep-1984 13:05: RUNOFF .SRCJCNTVMS.B32; a1) 
; 12? 16 ¢ 1 XSBTTL nent BE bank yates ps - Main program condition handler = sets gorpinac ton status’ ; 
3 : a 1 ? ! ROUTINE condition_handler (sig : REF BLOCK C, BYTE], mch : REF BLOCK C, BYTEJ) = | : 
: 1279 1635 1! : 
: : 9 1 § : : FUNCTIONAL DESCRIPTION: | : 
; 3 Ho 1638 1! This routine is enabled by CNTCLI as a condition handler. : 
; 128 1639 1! Whenever a signal is generated, the signal eoyersy is examined. . 
> 1286 1640 1! If the condition is more severe than any previous condition, 
: 1285 1641 1! (success, eeraien. error, severe erro:) the severity is recorded 
+ 1286 1649 i in termination status which is the condition severity. CNTCLI 
: 1287 1645 1! returns the value of TERMINATION STATUS as the program status 
; : Hs 1983 : which will set the value of the BCL $STATUS variable. 
3: 1290 1966 1 ! FORMAL PARAMETERS: 
: 193) 1647 1! 
3 1 36 1648 1! si - address of signal array 
: +4 1649 1! mc - address of mechanism array 
> 1296 1650 1! 
; \$3? 1651 1 ! IMPLICIT INPUTS: | 
> 1296 1026 1! : 
; 1297 1655 1! termination_status - current termination severity 
; 1298 1654 1! 
; 1938 1655 1 ! IMPLICIT OUTPUTS: 
: 1300 1656 1 | | 
; 1301 1657 1! termination_status = may be set to the severity level in the 
3 1306 1658 1! signalled condition if it is more severe 
; 130 1659 1! 
3: 1304 1660 1 ! ROUTINE VALUE: 
: 1305 1661 1 ! COMPLETION CODES: | 
: 1306 1on6 7% 
; 1307 1665 1! ss$_resignal 
: 1308 1664 1! 
; 1309 1665 1 ! SIDE EFFECTS: 
3; 1310 1666 1! | 
3 1311 1667 1! None 
3 sig 1668 1 !-- 
3; 131 1669 § BEGIN 
3; 1314 1670 
3; 1315 1671 IND a ; 
: 1318 1676 signalled_condition = sig Cchf$l_sig_name] : BLOCK C, BYTE); 
; 1318 1674 SELECTONE .signalled_cordition Csts$v_severity] OF | 
3 1319 1675 SFT 
; 1320 1978 
3; 1321 167 Csts$k_warning): 
; 4 $§ 1678 IF ,termination_status EQL sts$k_success 
s tae 1679 HEN 
: 1324 1680 : ; : 
: 1 5 1681 ' A warning changes the termination status only if it was 
; ’ § 19 § } "success* previously. 
: 1398 1oR8 termination_status = sts$k_warning; 
; 1380 16 $ Csts$k_error]: | 
3; 7331 16 IF .termination_status LSS sts$k_error 
3; 1332 1688 THEN 


; Routine Size: 61 bytes, Routine Base: S$CODE$ + 02A5 
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CNTVM CNTVMS = CONTENTS VMS command Line Interface AX-11 Bliss-32 V4.0-7 
v04-000 CONDITION_HANDLER - Main program condition hand 14- ett 7 3: 38: 3 RUNOFF .SRCIJCNTVMS. B32: 
; 1333 1689 
> 1334 1690 An error status changes the termination status only if it 
3 : 2 193) was ‘success’ or ‘warning’ previously. 
; : ‘ 1638 loretnstten neste = sts$k_error; 
3; 1339 1695 Csts$k_severe): ' Severe error 
; : re 1098 termination. status = sts$k_severe; ! set the termination status 
: 1 4g 1698 COTHERWISE): ' Success or Informational 
; 134 1699 ; ! Do nothing 
: 1344 1700 
; 1345 1701 TES; 
: 1 rk 1508 RETURN $ i l ae i i d 
3 ss$_resignal; ! Continue processing condition 
; 1348 1706 1 END; ’ 
0004 00000 CONDITION HANDLER: - 
52 00000000" EF 9E 00002 MOV TERMINATION. STATUS, R2 s 
50 04 AC 04 Ci 00009 ADDL #4, SIG 3 
07 60 93 0000E BITB (RO), a? : 
09 12 00011 BNEQ 1 3 
01 62 D1 00013 CMPL TERMINATION_STATUS, #1 ; 
1F 12 00016 BNEQ 3$ 3 
62 D4 00018 CLRL TERMINATION_STATUS é 
1B 11 OOO1A BRB 3$ ; 
02 60 03 00 €ED OOOIC 1$: CMPZV #0, #3, (RO), #2 : 
OA 12 00021 BNEQ 2s $ 
02 62 D1 bons. CMPL TERMINATION_STATUS, #2 3 
OF 18 00026 BGEQ 3$ : 
62 02 bdO 00028 MOVL #2, TERMINATION_STATUS 3 
OA 11 00028 BRB 3 
04 60 03 00 FD ie 2s: CMPZV #0, #3, (RO), #4 : 
03 12 00032 BNEQ $ 3 
62 04 be 00034 OVL a4 mag ~ ‘Yanicese STATUS : 
50 0918 8F 3C 00037 38: MOVZWL #2828 ; 
04 0003C ET : 
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5 
CNT CNTVMS = CONTENTS VMS command Line Interface ies -1984 23:58: AX-11 Bliss-32 V4.0-7 
yO4~080 OPEN_ERROR = Handle File Open Errors 12-808-1 3c $3:58:24 ERUNOFF Se CNTVMS .B32 
3 3 20 1705 1 SSBTTL ‘OPEN ERROR = Handie File Open Errors’ 
3 } 5 \f : ! GLOBAL ROUTINE oper_error (function_code, primary_code, secondary_code, job : REF $xpo_iob ()) = 
:1 1708 1! 
: 1354 1508 1 ! FUNCTIONAL DESCRIPTION: 
; 1555 1710 1! ; 
; 1356 711 1! This routine is called as an action routine to report 
3; 1357 Wa 33 file open errors. 
: 1558 7is 1! 
3 : 2 ar : FORMAL PARAMETERS: 
> 1361 Irie 1! function_code = XPORT failure action routine function code 
: 1 ¢ 171 1! primary_code - primary failure completion code 
: 136 1718 1! secondary_code = secondary failure completion code 
3 1308 Fah } iob - Address of file 108 
: 1366 1721 1 { IMPLICIT INPUTS: None 
3: 1367 17 ; & 
> 1368 17 1 ! IMPLICIT OUTPUTS: None 
3; 1369 iss 1! 
: 1370 1725 1 ! ROUTINE VALUE: 
3: 1371 1726 1 ! COMPLETION CODES: 
: 1376 1727 1! 
; 1327 768 : Returns the value of primary_code if success is indicated. 
: 1375 1556 1 | SIDE EFFECTS: 
3; 1376 1731 1! 
: 1377 \re6 1} Signals a fatal error terminating program execution if failure 
; 1378 1735 1! is indicated by primary_code. 
: 1379 eee 1 !-- 
; 1380 1735 1 
: 1381 1736 2 BEGIN 
; 1358 1737 2 
: 138 1738 § BIND : 
3 1384 1739 file spec = .iob Ciob$a_file_ spec] : $str_descriptor (), 
: 1385 1740 2 resultant = iob Ciob$t_resultant] : $str_descriptor (); 
: 1386 1741 § 
; 1387 1748 LOCAL ‘ 
; 1388 17435 2 file_name : REF $str_descriptor (); 
: 1389 1744 
: 1390 1745 ! 
3; 1391 1746 ' Point to best file name. 
3% 3 1747 ! 
3 1398 544 file_name = (IF -resultant Cstr$h_length] NEQ 0 THEN resultant ELSE file_spec); 
: 1395 1750 IF NOT .primary_code 
3: 1396 1751 THE 
: 1397 175 BEGIN 
3; 1398 175 ! 
3; 1399 1754 ! File was not opened. 
3; 1400 172? ! 
3 1401 17 $ IF .iob Ciob$v_input] 
: 1406 175 THEN ’ : 
; 140 1758 S1GW, STF (contents$_openin, 1, .file_name, 
3 1404 1759 -10b Ciob$g_comp_code], 1, .10b Ciob$g_2nd_code)) 
3; 1405 1760 
3: 1406 1761 ELSE 


4 Page 


5 
CNTVM CNTVMS = CONTENTS VMS command Line Interface 15-Sep-1984 $9: 38:21 AX-11 Bliss-32 V4.0-74 Page 48 
v04- OPEN_ERROR = Handle File Open Errors 14-Sep-1984 15:05: RUNOFF .SRCJCNTVMS.B32; (12). 
: 1407 1768 amen y «' sgontentss epgneyt. 1, {ite name, | 
; 1408 176 -16b Ciob$g_comp_codej], 1, .iob Ciob$g_2end_code]); 
: 1409 1764 | 
; 1410 1765 END; 
3 1411 1766 
; alg 176 RETURN .primary_code; 
; 141 1768 1 END; | 
0000 00000 ENTRY OPEN_ERROR, Save nothing 3; 1706 
50 10 AC OD Bp ope MOVL 308 RO ; 1739 
1¢ AO B5 00006 TSTW 8(RO) + 1748 
06 13 00009 BEQL 1$ : 
51 1¢ AO 9E 00008 MOVAB seat FILE_NAME 3 
04 11 OOOO0F BRB $ - 
51 04 AO DO 00011 1$: MOVL 4(RO), FILE_NAME - 
35 08 AC €E8 00015 2$: BLBS PRIMARY CODE, 5$ > 1750 
16 2E AO €E9 00019 BLBC 46(RO) $ ; 1756 
00DC CO DD 0001D PUSHL 220(ROS : 1759 
01 DD 00021 PUSHL #1 : 1758 
00D8 CO DD 00023 PUSHL 216(RO) 3; 1759 
51 DD 00027 PUSHL FILE_NAME ; 1758 
01 OD B30 o PUSHL #1 3 
00000000G 8F dD 00028 PUSHL #DSRTOCS_OPENIN 3 
14 11 00031 BRB 4$ é 
00DC CO ODD 00033 3$: PUSHL 220(RO) : 1763 
01 0D 00037 PUSHL #1 : 1706 
00D8 CO 0D 00039 PUSHL 216(RO) 3; 176 
51 DD 00030 PUSHL FILE_NAME : 1762 
01 DD 0003F PUSHL é 
00000000G 8F DD 00041 PUSHL #DSRTOC$_OPENOUT ; 
000000006 00 06 FB 00047 4$: CALLS #6, LIBSSTO 3 : 
50 08 AC DO 0004E 5S: MOVL § PRIMARY_CODE, RO > 1767 
04 00052 RET : 1768 
; Routine Size: 83 bytes, Routine Base: S$CODE$ + 02E2 
3 1414 1769 #1 
: 1415 1770 1 END ! End of module | 
: 1416 1771 O ELUDOM 
} 
-EXTRN LIBSSIGNAL, LIBSSTOP | 
H PSECT SUMMARY | 
: Name Bytes Attributes 
: SOWNS 16 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; _LIBSKEYOS NOVEC,NOWRT, RD, E, HR, LCL, REL, CON, PIC,ALIGN(1) 
; _LIBSSTATES 6 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 


Lines/CPU Min: sf 
Lexemes/CPU-Min: 52940 
penser Used: 270 pages 
Compilat 


ion Complete 


5 
CNTVM CNTVMS = CONTENTS VMS command Line Interface 18-52 -1984 23:58: AX-11 Bliss-32 V4.0-742 Page 49 
v04~000 OPEN_ERROR = Handle File Open Errors 12288-1982 #3:58:24 RUNOFF. SRCICNTVMS.B32;1 ° (12) | 
>;  LIBSKEY1$ NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
; SPLITS ; NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, EON Oe TE oat f ENtS 
; SCODES 1 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
; seccscos SyG00(§ coocese - Pages Processing | 
: File Total Loaded Percent Mapped Time 
; -$255$DUA 8: SYSLIBISTARLET 13251 9776 0 581 00:01.1 
; 7$255$puAe8: SYSLIBITPAMAC. 2:1 42 59 14 90:00.1 
: 7$255$DUA28:CSYSLIBIXPORT.L32; 1 59 130 22 252 00:00.6 
H COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,.OPTIMIZE)/LIS=LIS$:CNTVMS/OBJ=OBJ$:CNTVMS MSRC$:CNTVMS/UPDATE=(ENHS$: CNTVMS) 
Size: 821 code + 415 data bytes 
Run Time: 06°85.3 
Elapsed Time: 01:34.5 
| 
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